Cream of the Crop 22

home *** CD-ROM | disk | FTP | other *** search

/ Cream of the Crop 22 / Cream of the Crop 22.iso / database / moviessh.zip / MOVIES.BAS (.txt) < prev next >

Wrap

QuickBASIC Tokenized Source | 1996-09-18 | 30KB | 422 lines

VIEW! SELECT1 FULL TESTIT TEMPORARY NUMBERSCOUNTED! TAPENUMBERCHECK SHOWRECORD[ LETTER GETNEXTC AMT2e SEARCHI PICKIT TITLE` CATEGORY RATINGW GETNEXT1 SHOWRECORD1G THENH GETNEXT26 SHOWRECORD2 SHOWRECORD3 GETNEXT3 SHOWRECORD4 GETNEXT4m ACTOR SHOWRECORD5x GETNEXT5 CATEOGORY/ ALTER7 AMT1r START ALTER1 ALTER2 ALTER3 ALTER4 ALTER5 ALTER6~ ALTER7F ALTER8 ALTER9 SAVEIT SELECTIT; SKIPAMT- SKIPENTRIES SKIPALTER2 SKIPALTER3 SKIPALTER4 SKIPALTER5 SKIPALTER8 SKIPALTER9 ENTRIES ENTER1d ENTER2* ENTER3 ENTER4 ENTER5 ENTER8 ENTER9 SAVEIT2 SAVEIT3 SELECTIT2+ TOPRINT TALLY SKIPFOUR SKIPTHREE TALLY2X MOVENUM MOVENUMCHECKV NUMCHECKRETURN SHOWNEXTh NEXT2 PRINTER ADVANCE SKIPX CRITERIA1 INITIALS CRITERIA1p CRITERIA2 SKIP= SKIPX5 SKIPX41 SKIPX3x SKIPX2B SKIPX1& AMTORp ERRORHANDLERL REDISPLAY ALLRECS GETNEXT6J SHOWRECORD6 SKIPX6% BACKUP6d BACKUP5 GETNEXTR BACKUP4 BACKUP2= BACKUP3 BACKUP1 THREE ACTORSX WARNINGL previously| PRINTERSET WARNING2 PRINTERSET2 WARNING5D WARNING6 WARNING4u WARNING3 WARNING1 PRINTERSET1 PRINTERSET3 PRINTERSET4 PRINTERSET5 PRINTERSET6 STORY STORYS GETIT GETTITLE DISPLAYSTORY GETNEXT7; OPENITm WORDS WHATPRINTERCOLORz WHATPRINTER WHATPRINTER2 FOUND ADVER ADVER.001 AWAIT WAITING/ HOLD2 BACKUPSTORY BACKUP% Press ENTER please CATEGORY2 CATEGANDY BACKP2 SHAREIT CONTINUE ADVER.001" ADVER.002" ADVER.003" ADVER.004" ADVER.005" RET.MEN" 99999" TAPES.000" MOVIE TAPE NUMBER " TEMPO"d MOVIES.RECd establishes lengths for strings start of a FOR/NEXT loop, to retrieve entries retrieves whatever entry # code% represents in this particular cycle. NONE FOUND NO MORE MATCHES " LAST ENTRY FIRST ENTRY " routine is sent here when a retrieved entry matches the category chosen to be retrieved LETTER.001 CATEGORY = " these 5 commands print the values of these strings to the screen to be viewed. TAPE # = " RATING = " TITLE = " ACTORS = " " " LETTER.001 BAD ENTRY " " LETTER.000 TITLE - LETTERS" MOVIES.RECd establishes lengths for strings start of a FOR/NEXT loop, to retrieve entries retrieves whatever entry # code% represents in this particular cycle. NONE FOUND NO MORE MATCHES " LAST ENTRY FIRST ENTRY " routine is sent here when a retrieved entry matches the category chosen to be retrieved LETTER.001 CATEGORY = " these 5 commands print the values of these strings to the screen to be viewed. TAPE # = " RATING = " TITLE = " ACTORS = " " " LETTER.001 BAD ENTRY " " CATEGORY.000 ACTION BIOGRAPHICAL COMEDY DRAMA" EDUCATIONAL" FANTASY" HORROR MUSICAL" SCI\FI, SPACE" WESTERN" MOVIE CATEGORY MOVIES.RECd establishes lengths for strings start of a FOR/NEXT loop, to retrieve entries retrieves whatever entry # code% represents in this particular cycle. NONE FOUND NO MORE MATCHES " LAST ENTRY FIRST ENTRY " routine is sent here when a retrieved entry matches the category chosen to be retrieved LETTER.001 CATEGORY = " these 5 commands print the values of these strings to the screen to be viewed. TAPE # = " RATING = " TITLE = " ACTORS = " " " LETTER.001 BAD ENTRY " " RATING.000 MOVIES RATED " MOVIES.RECd establishes lengths for strings start of a FOR/NEXT loop, to retrieve entries retrieves whatever entry # code% represents in this particular cycle. NONE FOUND NO MORE MATCHES " LAST ENTRY FIRST ENTRY " routine is sent here when a retrieved entry matches the category chosen to be retrieved LETTER.001 CATEGORY = " these 5 commands print the values of these strings to the screen to be viewed. TAPE # = " RATING = " TITLE = " ACTORS = " " " LETTER.001 BAD ENTRY " " ACTOR.000" ACTOR INITIALS MOVIES.RECd establishes lengths for strings start of a FOR/NEXT loop, to retrieve entries retrieves whatever entry # code% represents in this particular cycle. NONE FOUND NO MORE MATCHES " LAST ENTRY FIRST ENTRY " routine is sent here when a retrieved entry matches the category chosen to be retrieved LETTER.001 CATEGORY = " these 5 commands print the values of these strings to the screen to be viewed. TAPE # = " RATING = " TITLE = " ACTORS = " " " LETTER.001 BAD ENTRY " " ALTER.000" CATEGORY = " these 5 commands print the values of these strings to the screen to be viewed. TAPE # = RATING = " TITLE = " ACTORS = " " " " " " " Press S to SAVE. R to REDO, or A to ABORT without altering! " Press S, R or A please ENTRIES.000" CATEGORY = " TAPE # = " RATING = " TITLE = " ACTORS = " " " " " " " Press S to SAVE, R to REDO, or ENTER to ABORT without SAVING! Press S, R or ENTER please DATA.DATd 12123" MOVIES.RECd establishes lengths for strings start of a FOR/NEXT loop, to retrieve entries SHARE.000" activate for shareware version. TAPE# RATING RETRIEVED BY " CATEGORY - " CHECK PRINTER! THEN PRESS KEY TO CONTINUE! MOVIES.RECd establishes lengths for strings start of a FOR/NEXT loop, to retrieve entries retrieves whatever entry # code% represents in this particular cycle. LAST ENTRY FIRST ENTRY " routine is sent here when a retrieved entry matches the category chosen to be retrieved ALL MOVIES LISTED LETTER.001 All entries are being viewed, & in the order in which originally entered, and using T to print ALL records, COULD result in an unorganized printout! CATEGORY = " these 5 commands print the values of these strings to the screen to be viewed. TAPE # = " RATING = " TITLE = " ACTORS = " " " BAD ENTRY " " " I sense that printing has been done " previously in this session. You are " about to print ALL records, so make " certain that your Desk Jet printer " is clear of any fed data, or that " your Dot Matrix printer is presently " at the beginning of a page. Then " press P. To Abort printing press A. " " " I sense that printing has been done " previously in this session. You are " about to print ALL records, so make " certain that your Desk Jet printer " is clear of any fed data, or that " your Dot Matrix printer is presently " at the beginning of a page. Then " press P. To Abort printing press A. " " " I sense that printing has been done " previously in this session. You are " about to print ALL records, so make " certain that your Desk Jet printer " is clear of any fed data, or that " your Dot Matrix printer is presently " at the beginning of a page. Then " press P. To Abort printing press A. " " " I sense that printing has been done " previously in this session. You are " about to print ALL records, so make " certain that your Desk Jet printer " is clear of any fed data, or that " your Dot Matrix printer is presently " at the beginning of a page. Then " press P. To Abort printing press A. " " " I sense that printing has been done " previously in this session. You are " about to print ALL records, so make " certain that your Desk Jet printer " is clear of any fed data, or that " your Dot Matrix printer is presently " at the beginning of a page. Then " press P. To Abort printing press A. " " " I sense that printing has been done " previously in this session. You are " about to print ALL records, so make " certain that your Desk Jet printer " is clear of any fed data, or that " your Dot Matrix printer is presently " at the beginning of a page. Then " press P. To Abort printing press A. " " TEMP5"d STORIES.REC"d NO STORYLINE AVAILABLE! " NO MORE MATCHING TITLES! FIRST ENTRY " STORIES.000" MOVIES.RECd establishes lengths for strings start of a FOR/NEXT loop, to retrieve entries Press 1 for Desk Jet or laser printer " Press 2 for Dot Matix printer! " Press 3 for Menu, or 4 to Quit! "